home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / EDITORS / AMIMACRO.ZIP;1 / SAVETOC.SMM < prev    next >
Encoding:
INI File  |  1993-04-06  |  1.2 KB  |  114 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _MACRO.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Citizen GSX-140
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Saves the current document to the C:\AMIPRO\DOCS\ under the same name and description.
  19.     
  20.     
  21.     
  22.     
  23.     734074666
  24.     2
  25.     734072955
  26.     23
  27.     1
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [l1]
  54.     0
  55. [pg]
  56.     1
  57.     13 0 12 1025 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  58. [edoc]
  59. <:#216,10800>FUNCTION SavetoC()
  60.  
  61. <:#216,10800>onerror endit
  62.  
  63. <:#216,10800>oncancel endit
  64.  
  65. <:#216,10800>Hourglass(1)
  66.  
  67. <:#216,10800>IgnoreKeyboard(1)
  68.  
  69. <:#216,10800>dn=GetDocInfo$(1)
  70.  
  71. <:#216,10800>di=GetDocInfo$(7)
  72.  
  73. <:#216,10800>dn=strcat$("C:\AMIPRO\DOCS\",dn)
  74.  
  75. SaveAs(dn,0,di,"")
  76.  
  77. <:#216,10800>Endit:
  78.  
  79. <:#216,10800>Hourglass(0)
  80.  
  81. <:#216,10800>IgnoreKeyboard(0)
  82.  
  83. <:#216,10800>END FUNCTION
  84.  
  85. >
  86.  
  87. [Embedded]
  88. 00000966
  89. >
  90. [macsum] 1
  91. SavetoC 0 0 3 0
  92. [macse]
  93. 14 SavetoC
  94. 20 00000156
  95. 19 00000156
  96. 0 296 1
  97. 0 32 1
  98. 0 279 1
  99. 13
  100. 8 1
  101. 0 279 7
  102. 13
  103. 8 2
  104. 0 16 "C:\AMIPRO\DOCS\" "{1}"
  105. 13
  106. 8 1
  107. 2 104 1 "{1}" 0 "{2}" ""
  108. 0 296 0
  109. 0 32 0
  110. 6 0
  111. 15
  112. 9
  113. 00000991
  114.